home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g26.bas < prev    next >
BASIC Source File  |  1991-10-18  |  376b  |  17 lines
  1. 100 ' G26 T.WAKAMATSU
  2. 110 CLS:PI=3.14159!
  3. 120 C(1)=2:C(2)=3:C(3)=1:C(4)=0
  4. 130 FOR N=1 TO 4
  5. 140   FOR K=3 TO 15
  6. 150     F=360/K
  7. 160     V=370:W=478
  8. 170     FOR I=1 TO K
  9. 180       X=100*COS(F*I*PI/180)+V
  10. 190       Y=-100*SIN(F*I*PI/180)+W
  11. 200       LINE(X,Y)-(V,W),PSET,%C(N)
  12. 210       V=X:W=Y
  13. 220     NEXT I
  14. 230   NEXT K
  15. 240   FOR D=1 TO 5000:NEXT D
  16. 250 NEXT N
  17.